home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / additm / additem.frm < prev    next >
Text File  |  1995-05-08  |  3KB  |  85 lines
  1. VERSION 2.00
  2. Begin Form frmAddItemTest 
  3.    Caption         =   "AddItem Test Form"
  4.    ClientHeight    =   5010
  5.    ClientLeft      =   870
  6.    ClientTop       =   1530
  7.    ClientWidth     =   4800
  8.    Height          =   5415
  9.    Left            =   810
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   5010
  13.    ScaleWidth      =   4800
  14.    Top             =   1185
  15.    Width           =   4920
  16.    Begin CommandButton pbWithOutNULL 
  17.       Caption         =   "Insert Without NULL"
  18.       Height          =   492
  19.       Left            =   2400
  20.       TabIndex        =   2
  21.       Top             =   4320
  22.       Width           =   1812
  23.    End
  24.    Begin CommandButton pbWithNULL 
  25.       Caption         =   "Insert With NULL"
  26.       Height          =   492
  27.       Left            =   360
  28.       TabIndex        =   1
  29.       Top             =   4320
  30.       Width           =   1692
  31.    End
  32.    Begin ListBox lstBox 
  33.       Height          =   2760
  34.       Left            =   480
  35.       TabIndex        =   0
  36.       Top             =   1200
  37.       Width           =   3975
  38.    End
  39.    Begin Label Label1 
  40.       Caption         =   "frmAddItem.Load calls GetPrivateProfileString (which is exported in KERNEL.EXE) and retrieves a NULL terminated string from WIN.INI.  The pushbuttons invoke AddItem with a string expression; they concat a string literal, replacing or ignoring the NULLs"
  41.       FontBold        =   -1  'True
  42.       FontItalic      =   0   'False
  43.       FontName        =   "MS Serif"
  44.       FontSize        =   6.75
  45.       FontStrikethru  =   0   'False
  46.       FontUnderline   =   0   'False
  47.       ForeColor       =   &H00000000&
  48.       Height          =   972
  49.       Left            =   120
  50.       TabIndex        =   3
  51.       Top             =   120
  52.       Width           =   4572
  53.    End
  54. End
  55. ' Form Level Variable Declarations
  56.  
  57. Dim strReturned As String * 30
  58.  
  59. Sub Form_Load ()
  60.     iReturn% = GetProfileString("Extensions", "wri", "Nothing Returned", strReturned, Len(strReturned))
  61. End Sub
  62.  
  63. Sub pbWithNULL_Click ()
  64.     ' Local Variable Declarations
  65.         Dim strItem As String * 30
  66.  
  67.     strItem = strReturned
  68.  
  69.     lstBox.AddItem strItem + " *** With NULL ***"
  70. End Sub
  71.  
  72. Sub pbWithOutNULL_Click ()
  73.     ' Local Variable Declarations
  74.         Dim strItem As String * 30
  75.  
  76.     strItem = strReturned
  77.  
  78.     iPosition% = InStr(1, strItem, Chr$(0))
  79.  
  80.     Mid$(strItem, iPosition%) = Space$((Len(strItem) - iPosition%) + 1)
  81.  
  82.     lstBox.AddItem strItem + " *** Without NULL ***"
  83. End Sub
  84.  
  85.